VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "msmask32.ocx"
Begin VB.Form frmVerficarIntegracion 
   BackColor       =   &H00000000&
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "VERFICACION DE LA INTEGRACION CONTABLE"
   ClientHeight    =   2250
   ClientLeft      =   60
   ClientTop       =   330
   ClientWidth     =   2850
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   2250
   ScaleWidth      =   2850
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Ok"
      Height          =   255
      Left            =   2160
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1800
      Width           =   375
   End
   Begin MSMask.MaskEdBox mskFechaPlanilla 
      Height          =   255
      Left            =   600
      TabIndex        =   0
      Top             =   1800
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   450
      _Version        =   393216
      MaxLength       =   10
      Mask            =   "##/##/####"
      PromptChar      =   "_"
   End
   Begin VB.PictureBox logocarlos 
      Height          =   1455
      Left            =   360
      Picture         =   "frmVerficarIntegracion.frx":0000
      ScaleHeight     =   1395
      ScaleWidth      =   1635
      TabIndex        =   1
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "frmVerficarIntegracion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()

    
    If DE.rsplaCTipoPlanilla.State = adStateOpen Then DE.rsplaCTipoPlanilla.Close
    DE.plaCTipoPlanilla
    
    

    With DE.rsplaCTipoPlanilla
    
        For i = 1 To DE.rsplaCTipoPlanilla.RecordCount
          tipopla = .Fields("iCodigo_TipoPlanilla")
    
    
            ' aqui paso la informacion a la tabla temporal
            
            'Administracion
            If tipopla = 2 Then
                If DE.rsIntegraAdministracion.State = adStateOpen Then DE.rsIntegraAdministracion.Close
                DE.IntegraAdministracion mskFechaPlanilla.Text, tipopla
            End If
            
                
            'Gestores de Cobro
            If tipopla = 3 Then
                If DE.rsInteGestoresCobros.State = adStateOpen Then DE.rsInteGestoresCobros.Close
                DE.InteGestoresCobros mskFechaPlanilla.Text, tipopla
            End If
            
               
            'COLECTORES DE FONDO
            If tipopla = 4 Then
                If DE.rsInteColectorFondo.State = adStateOpen Then DE.rsInteColectorFondo.Close
                DE.InteColectorFondo mskFechaPlanilla.Text, tipopla
            End If
            
            
            'PARQUE SANTO
            If tipopla = 5 Then
                If DE.rsIntegraParqueSantoPermanentes.State = adStateOpen Then DE.rsIntegraParqueSantoPermanentes.Close
                DE.IntegraParqueSantoPermanentes mskFechaPlanilla.Text, tipopla
            End If
            
               'FUNERALES LAS FLORES
            If tipopla = 6 Then
                If DE.rsIntegraFunerariaLasFlores.State = adStateOpen Then DE.rsIntegraFunerariaLasFlores.Close
                DE.IntegraFunerariaLasFlores mskFechaPlanilla.Text, tipopla
            End If
            
            
            
        'VENDEDORES EVENTUALES
            If tipopla = 8 Then
                If DE.rsIntegraVendeEventuales.State = adStateOpen Then DE.rsIntegraVendeEventuales.Close
                DE.IntegraVendeEventuales mskFechaPlanilla.Text, tipopla
            End If
            
            
        'VENDEDORES PERMANENTES
            If tipopla = 9 Then
                If DE.rsIntegraVendePermane.State = adStateOpen Then DE.rsIntegraVendePermane.Close
                DE.IntegraVendePermane mskFechaPlanilla.Text, tipopla
            End If
            
            
            'VENDEDORES SERVICIOS FAMILIARES
            If tipopla = 11 Then
                If DE.rsIntegraServiciosFamilia.State = adStateOpen Then DE.rsIntegraServiciosFamilia.Close
                DE.IntegraServiciosFamilia mskFechaPlanilla.Text, tipopla
            End If
            
            
             'GERENTES DE UNIDADES DE VENTAS
            If tipopla = 10 Then
                If DE.rsIntegraGerentesUnidad.State = adStateOpen Then DE.rsIntegraGerentesUnidad.Close
                DE.IntegraGerentesUnidad mskFechaPlanilla.Text, tipopla
            End If

            'PARQUE SANTO EVENTUALES
            If tipopla = 12 Then
                If DE.rsIntegraParqueSantoEventuales.State = adStateOpen Then DE.rsIntegraParqueSantoEventuales.Close
                DE.IntegraParqueSantoEventuales mskFechaPlanilla.Text, tipopla
            End If
            
            
        
        'MOVILIDAD Y BONOS
            If tipopla = 13 Then
                If DE.rsIntegraMovilidadBonos.State = adStateOpen Then DE.rsIntegraMovilidadBonos.Close
                DE.IntegraMovilidadBonos mskFechaPlanilla.Text, tipopla
            End If
            
            'COMBUSTIBLE Y DEPRECIACION
            If tipopla = 15 Then
                If DE.rsIntegraCombusDepre.State = adStateOpen Then DE.rsIntegraCombusDepre.Close
                DE.IntegraCombusDepre mskFechaPlanilla.Text, tipopla
            End If

      

        'MOVILIDAD DE GERENTES
            If tipopla = 14 Then
                If DE.rsInteMovilidadGerentes.State = adStateOpen Then DE.rsInteMovilidadGerentes.Close
                DE.InteMovilidadGerentes mskFechaPlanilla.Text, tipopla
            End If
    
        DE.rsplaCTipoPlanilla.MoveNext
        Next
       
    
    End With
    
    

    ' -----   Parque Santo el procedimiento se llama IntegraParqueSantoPermanentes 5
    '   ----- Parque Santo Eventuales se llama IntegraParqueSantoEventuales 12
    ' -----   Gestores de Cobro se llama InteGestoresCobros 3
    ' -----    Funerales las Flores se llama IntegraFunerariaLasFlores 6
    ' ----    Administracion se llama IntegraAdministracion 2
    ' ---- Combustible y depreciacion se llama IntegraCombusDepre 15
    '   -----   Colectores de Fondo se llama InteColectorFondo 4
    ' ----- Movilidad de Gerentes de venta se llama InteMovilidadGerentes 14
    '   -----   Movilidad y Bonos se llama IntegraMovilidadBonos 13
    '   -----   Vendedores eventuales se llama IntegraVendeEventuales 8
    '   ---    Vendedores Permanentes IntegraVendePermane 9
    '   ----     Servicios Familiares IntegraServiciosFamilia 11
    '   ----     Gerentes de Unidades de Venta IntegraGerentesUnidad 10
    ' ---- COMBUSTIBLE Y DEPRECIACION


    
    If DE.rslosTiposPlanillas.State = adStateOpen Then DE.rslosTiposPlanillas.Close
    DE.losTiposPlanillas
   
    With DE.rslosTiposPlanillas
        For i = 1 To DE.rslosTiposPlanillas.RecordCount
            diferencia = .Fields("Diferencia")
            tipoplaDesc = .Fields("vDescripcion_TipoPlanilla")
            tipopla = .Fields("iCodigo_TipoPlanilla")
            
           If diferencia = 0 Then
              MsgBox UCase(tipoplaDesc) + " is Ok"
                Else
                MsgBox UCase(tipoplaDesc) + "  No Cuadra, Verificar...."
           End If
        DE.rslosTiposPlanillas.MoveNext
        Next
    End With
    


End Sub

Private Sub Form_Load()
  Left = Screen.Width / 2 - Width / 2
  Top = (Screen.Height / 2 - Height / 2) - 800
  HacerLaIntegracion
 
End Sub
Private Sub HacerLaIntegracion()

        'aqui hara la integracion para verificar si esta buena.

End Sub

